home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
VIKINGW.DIR
/
01658_Script_The Gods
< prev
next >
Wrap
Text File
|
1995-09-12
|
9KB
|
315 lines
global gbeenclicked, gQuest
on VGodsRollovers1
set gbeenclicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(7) then
repeat while rollover(7)
VikingCursor
puppetsprite 21, true
set the locH of sprite 21 to 317
set the locV of sprite 21 to 154
updatestage
if (the mousedown) then
set gbeenclicked = 1
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
AnimateLoop 7, 953, 2, 0, 3
end repeat
end if
end if
end repeat
set the locH of sprite 21 to 999
updatestage
puppetsprite 21, false
else
if rollover(8) then
ArrowCursor
repeat while rollover(8)
set the locH of sprite 9 to 193
set the locV of sprite 9 to 353
updatestage
end repeat
set the locH of sprite 9 to 999
updatestage
else
if rollover(10) then
ArrowCursor
repeat while rollover(10)
set the locH of sprite 11 to 272
set the locV of sprite 11 to 321
updatestage
end repeat
set the locH of sprite 11 to 999
updatestage
else
if rollover(12) then
ArrowCursor
repeat while rollover(12)
set the locH of sprite 13 to 273
set the locV of sprite 13 to 232
updatestage
end repeat
set the locH of sprite 13 to 999
updatestage
else
if rollover(14) then
ArrowCursor
repeat while rollover(14)
set the locH of sprite 15 to 411
set the locV of sprite 15 to 333
updatestage
end repeat
set the locH of sprite 15 to 999
updatestage
else
if rollover(16) then
ArrowCursor
repeat while rollover(16)
set the locH of sprite 17 to 456
set the locV of sprite 17 to 379
updatestage
end repeat
set the locH of sprite 17 to 999
updatestage
else
if rollover(18) then
ArrowCursor
repeat while rollover(18)
set the locH of sprite 19 to 145
set the locV of sprite 19 to 363
updatestage
end repeat
set the locH of sprite 19 to 999
updatestage
else
if rollover(20) then
repeat while rollover(20)
VikingCursor
set the locH of sprite 43 to 453
set the locV of sprite 43 to 87
updatestage
if (the mousedown) then
set gbeenclicked = 1
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
set the locH of sprite 43 to 853
updatestage
AnimateLoop 6, 1000, 4, "SV361001.AIF", 1
end repeat
end if
end if
end repeat
set the locH of sprite 43 to 999
updatestage
else
if rollover(27) then
ArrowCursor
repeat while rollover(27)
set the locH of sprite 28 to 435
set the locV of sprite 28 to 214
updatestage
end repeat
set the locH of sprite 28 to 999
updatestage
else
if rollover(40) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on VGodsRollovers2
set gbeenclicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(16) then
ArrowCursor
repeat while rollover(16)
set the locH of sprite 17 to 429
set the locV of sprite 17 to 287
updatestage
end repeat
set the locH of sprite 17 to 999
updatestage
else
if rollover(18) then
ArrowCursor
repeat while rollover(18)
set the locH of sprite 19 to 429
set the locV of sprite 19 to 224
updatestage
end repeat
set the locH of sprite 19 to 999
updatestage
else
if rollover(20) then
ArrowCursor
repeat while rollover(20)
set the locH of sprite 21 to 230
set the locV of sprite 21 to 340
updatestage
end repeat
set the locH of sprite 21 to 999
updatestage
else
if rollover(12) then
ArrowCursor
repeat while rollover(12)
set the locH of sprite 13 to 429
set the locV of sprite 13 to 360
updatestage
end repeat
set the locH of sprite 13 to 999
updatestage
else
if rollover(27) then
ArrowCursor
repeat while rollover(27)
set the locH of sprite 28 to 448
set the locV of sprite 28 to 123
updatestage
end repeat
set the locH of sprite 28 to 999
updatestage
else
if rollover(9) then
repeat while rollover(9)
VikingCursor
if (the mousedown) then
set gbeenclicked = 1
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
Religion
end repeat
end if
end if
end repeat
else
if rollover(39) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on religion
ArrowCursor
puppetsprite 6, true
puppetsprite 7, true
puppetsprite 8, true
set gCast1 = the castnum of sprite 6
set gCast2 = the castnum of sprite 7
set gCast3 = the castnum of sprite 8
puppetsound "SV361104.AIF"
updatestage
set the castnum of sprite 8 = gCast3 + 1
set the castnum of sprite 7 = gCast2 + 1
updatestage
wait .3
set the castnum of sprite 7 = gCast2 + 2
updatestage
wait .2
set the castnum of sprite 8 = gCast3
updatestage
wait .3
set the castnum of sprite 7 = gCast2
updatestage
wait .2
set count = 0
puppetsound "SV361101.AIF"
repeat while count < 3 and (the mouseUp)
updatestage
set the castnum of sprite 6 = gCast1 + 1
set the castnum of sprite 7 = gCast2 + 1
updatestage
wait .3
set the castnum of sprite 7 = gCast2 + 2
updatestage
wait .3
set the castnum of sprite 6 = gCast1
set the castnum of sprite 7 = gCast2
updatestage
wait .3
set the castnum of sprite 7 = gCast2 + 1
updatestage
wait .3
set the castnum of sprite 7 = gCast2 + 2
updatestage
wait .3
set the castnum of sprite 7 = gCast2
updatestage
wait .3
set count = count + 1
end repeat
puppetsound "SV361104.AIF"
set the castnum of sprite 8 = gCast3 + 1
set the castnum of sprite 7 = gCast2 + 1
updatestage
wait .3
set the castnum of sprite 7 = gCast2 + 2
updatestage
wait .2
set the castnum of sprite 8 = gCast3
updatestage
wait .3
set the castnum of sprite 7 = gCast2
updatestage
set the castnum of sprite 6 = gCast1
puppetsprite 6, false
puppetsprite 7, false
puppetsprite 8, false
updatestage
puppetsound 0
set gBeenClicked = 0
end